home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mrb_cal / calendar.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-23  |  42.1 KB  |  1,116 lines
  1. VERSION 2.00
  2. Begin Form frmCalendar 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Calendar"
  6.    ClientHeight    =   3600
  7.    ClientLeft      =   1425
  8.    ClientTop       =   1755
  9.    ClientWidth     =   2385
  10.    Height          =   4005
  11.    Left            =   1365
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3600
  15.    ScaleWidth      =   2385
  16.    Top             =   1410
  17.    Width           =   2505
  18.    Begin SSPanel pnlCal 
  19.       Align           =   2  'Align Bottom
  20.       Alignment       =   8  'Center - BOTTOM
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelOuter      =   0  'None
  23.       Font3D          =   0  'None
  24.       Height          =   4000
  25.       Left            =   0
  26.       RoundedCorners  =   0   'False
  27.       TabIndex        =   46
  28.       Top             =   -405
  29.       Width           =   2385
  30.       Begin SSPanel pnlDates 
  31.          Alignment       =   8  'Center - BOTTOM
  32.          BackColor       =   &H00C0C0C0&
  33.          BevelOuter      =   1  'Inset
  34.          Font3D          =   0  'None
  35.          Height          =   2295
  36.          Left            =   120
  37.          TabIndex        =   0
  38.          Top             =   1560
  39.          Width           =   2175
  40.          Begin Label Label1 
  41.             Alignment       =   2  'Center
  42.             BackStyle       =   0  'Transparent
  43.             Caption         =   "S"
  44.             FontBold        =   0   'False
  45.             FontItalic      =   0   'False
  46.             FontName        =   "MS Sans Serif"
  47.             FontSize        =   8.25
  48.             FontStrikethru  =   0   'False
  49.             FontUnderline   =   -1  'True
  50.             Height          =   255
  51.             Index           =   6
  52.             Left            =   1740
  53.             TabIndex        =   48
  54.             Top             =   240
  55.             Width           =   285
  56.          End
  57.          Begin Label Label1 
  58.             Alignment       =   2  'Center
  59.             BackStyle       =   0  'Transparent
  60.             Caption         =   "F"
  61.             FontBold        =   0   'False
  62.             FontItalic      =   0   'False
  63.             FontName        =   "MS Sans Serif"
  64.             FontSize        =   8.25
  65.             FontStrikethru  =   0   'False
  66.             FontUnderline   =   -1  'True
  67.             Height          =   255
  68.             Index           =   5
  69.             Left            =   1470
  70.             TabIndex        =   50
  71.             Top             =   240
  72.             Width           =   285
  73.          End
  74.          Begin Label Label1 
  75.             Alignment       =   2  'Center
  76.             BackStyle       =   0  'Transparent
  77.             Caption         =   "T"
  78.             FontBold        =   0   'False
  79.             FontItalic      =   0   'False
  80.             FontName        =   "MS Sans Serif"
  81.             FontSize        =   8.25
  82.             FontStrikethru  =   0   'False
  83.             FontUnderline   =   -1  'True
  84.             Height          =   255
  85.             Index           =   4
  86.             Left            =   1200
  87.             TabIndex        =   54
  88.             Top             =   240
  89.             Width           =   285
  90.          End
  91.          Begin Label Label1 
  92.             Alignment       =   2  'Center
  93.             BackStyle       =   0  'Transparent
  94.             Caption         =   "W"
  95.             FontBold        =   0   'False
  96.             FontItalic      =   0   'False
  97.             FontName        =   "MS Sans Serif"
  98.             FontSize        =   8.25
  99.             FontStrikethru  =   0   'False
  100.             FontUnderline   =   -1  'True
  101.             Height          =   255
  102.             Index           =   3
  103.             Left            =   930
  104.             TabIndex        =   53
  105.             Top             =   240
  106.             Width           =   285
  107.          End
  108.          Begin Label Label1 
  109.             Alignment       =   2  'Center
  110.             BackStyle       =   0  'Transparent
  111.             Caption         =   "T"
  112.             FontBold        =   0   'False
  113.             FontItalic      =   0   'False
  114.             FontName        =   "MS Sans Serif"
  115.             FontSize        =   8.25
  116.             FontStrikethru  =   0   'False
  117.             FontUnderline   =   -1  'True
  118.             Height          =   255
  119.             Index           =   2
  120.             Left            =   660
  121.             TabIndex        =   52
  122.             Top             =   240
  123.             Width           =   285
  124.          End
  125.          Begin Label Label1 
  126.             Alignment       =   2  'Center
  127.             BackStyle       =   0  'Transparent
  128.             Caption         =   "M"
  129.             FontBold        =   0   'False
  130.             FontItalic      =   0   'False
  131.             FontName        =   "MS Sans Serif"
  132.             FontSize        =   8.25
  133.             FontStrikethru  =   0   'False
  134.             FontUnderline   =   -1  'True
  135.             Height          =   255
  136.             Index           =   1
  137.             Left            =   360
  138.             TabIndex        =   51
  139.             Top             =   240
  140.             Width           =   285
  141.          End
  142.          Begin Label Label1 
  143.             Alignment       =   2  'Center
  144.             BackStyle       =   0  'Transparent
  145.             Caption         =   "S"
  146.             FontBold        =   0   'False
  147.             FontItalic      =   0   'False
  148.             FontName        =   "MS Sans Serif"
  149.             FontSize        =   8.25
  150.             FontStrikethru  =   0   'False
  151.             FontUnderline   =   -1  'True
  152.             Height          =   255
  153.             Index           =   0
  154.             Left            =   120
  155.             TabIndex        =   49
  156.             Top             =   240
  157.             Width           =   280
  158.          End
  159.          Begin Label caldate 
  160.             Alignment       =   2  'Center
  161.             BackColor       =   &H00C0C0C0&
  162.             BorderStyle     =   1  'Fixed Single
  163.             FontBold        =   0   'False
  164.             FontItalic      =   0   'False
  165.             FontName        =   "MS Sans Serif"
  166.             FontSize        =   8.25
  167.             FontStrikethru  =   0   'False
  168.             FontUnderline   =   0   'False
  169.             Height          =   280
  170.             Index           =   0
  171.             Left            =   120
  172.             TabIndex        =   1
  173.             Top             =   480
  174.             Width           =   280
  175.          End
  176.          Begin Label caldate 
  177.             Alignment       =   2  'Center
  178.             BackColor       =   &H00C0C0C0&
  179.             BorderStyle     =   1  'Fixed Single
  180.             FontBold        =   0   'False
  181.             FontItalic      =   0   'False
  182.             FontName        =   "MS Sans Serif"
  183.             FontSize        =   8.25
  184.             FontStrikethru  =   0   'False
  185.             FontUnderline   =   0   'False
  186.             Height          =   285
  187.             Index           =   1
  188.             Left            =   390
  189.             TabIndex        =   2
  190.             Top             =   480
  191.             Width           =   285
  192.          End
  193.          Begin Label caldate 
  194.             Alignment       =   2  'Center
  195.             BackColor       =   &H00C0C0C0&
  196.             BorderStyle     =   1  'Fixed Single
  197.             FontBold        =   0   'False
  198.             FontItalic      =   0   'False
  199.             FontName        =   "MS Sans Serif"
  200.             FontSize        =   8.25
  201.             FontStrikethru  =   0   'False
  202.             FontUnderline   =   0   'False
  203.             Height          =   285
  204.             Index           =   2
  205.             Left            =   660
  206.             TabIndex        =   3
  207.             Top             =   480
  208.             Width           =   285
  209.          End
  210.          Begin Label caldate 
  211.             Alignment       =   2  'Center
  212.             BackColor       =   &H00C0C0C0&
  213.             BorderStyle     =   1  'Fixed Single
  214.             FontBold        =   0   'False
  215.             FontItalic      =   0   'False
  216.             FontName        =   "MS Sans Serif"
  217.             FontSize        =   8.25
  218.             FontStrikethru  =   0   'False
  219.             FontUnderline   =   0   'False
  220.             Height          =   285
  221.             Index           =   3
  222.             Left            =   930
  223.             TabIndex        =   4
  224.             Top             =   480
  225.             Width           =   285
  226.          End
  227.          Begin Label caldate 
  228.             Alignment       =   2  'Center
  229.             BackColor       =   &H00C0C0C0&
  230.             BorderStyle     =   1  'Fixed Single
  231.             FontBold        =   0   'False
  232.             FontItalic      =   0   'False
  233.             FontName        =   "MS Sans Serif"
  234.             FontSize        =   8.25
  235.             FontStrikethru  =   0   'False
  236.             FontUnderline   =   0   'False
  237.             Height          =   280
  238.             Index           =   4
  239.             Left            =   1200
  240.             TabIndex        =   5
  241.             Top             =   480
  242.             Width           =   280
  243.          End
  244.          Begin Label caldate 
  245.             Alignment       =   2  'Center
  246.             BackColor       =   &H00C0C0C0&
  247.             BorderStyle     =   1  'Fixed Single
  248.             FontBold        =   0   'False
  249.             FontItalic      =   0   'False
  250.             FontName        =   "MS Sans Serif"
  251.             FontSize        =   8.25
  252.             FontStrikethru  =   0   'False
  253.             FontUnderline   =   0   'False
  254.             Height          =   280
  255.             Index           =   5
  256.             Left            =   1470
  257.             TabIndex        =   6
  258.             Top             =   480
  259.             Width           =   280
  260.          End
  261.          Begin Label caldate 
  262.             Alignment       =   2  'Center
  263.             BackColor       =   &H00C0C0C0&
  264.             BorderStyle     =   1  'Fixed Single
  265.             FontBold        =   0   'False
  266.             FontItalic      =   0   'False
  267.             FontName        =   "MS Sans Serif"
  268.             FontSize        =   8.25
  269.             FontStrikethru  =   0   'False
  270.             FontUnderline   =   0   'False
  271.             Height          =   280
  272.             Index           =   6
  273.             Left            =   1740
  274.             TabIndex        =   7
  275.             Top             =   480
  276.             Width           =   280
  277.          End
  278.          Begin Label caldate 
  279.             Alignment       =   2  'Center
  280.             BackColor       =   &H00C0C0C0&
  281.             BorderStyle     =   1  'Fixed Single
  282.             FontBold        =   0   'False
  283.             FontItalic      =   0   'False
  284.             FontName        =   "MS Sans Serif"
  285.             FontSize        =   8.25
  286.             FontStrikethru  =   0   'False
  287.             FontUnderline   =   0   'False
  288.             Height          =   280
  289.             Index           =   7
  290.             Left            =   120
  291.             TabIndex        =   8
  292.             Tag             =   "Sun"
  293.             Top             =   750
  294.             Width           =   280
  295.          End
  296.          Begin Label caldate 
  297.             Alignment       =   2  'Center
  298.             BackColor       =   &H00C0C0C0&
  299.             BorderStyle     =   1  'Fixed Single
  300.             FontBold        =   0   'False
  301.             FontItalic      =   0   'False
  302.             FontName        =   "MS Sans Serif"
  303.             FontSize        =   8.25
  304.             FontStrikethru  =   0   'False
  305.             FontUnderline   =   0   'False
  306.             Height          =   285
  307.             Index           =   8
  308.             Left            =   390
  309.             TabIndex        =   9
  310.             Tag             =   "Mon"
  311.             Top             =   750
  312.             Width           =   285
  313.          End
  314.          Begin Label caldate 
  315.             Alignment       =   2  'Center
  316.             BackColor       =   &H00C0C0C0&
  317.             BorderStyle     =   1  'Fixed Single
  318.             FontBold        =   0   'False
  319.             FontItalic      =   0   'False
  320.             FontName        =   "MS Sans Serif"
  321.             FontSize        =   8.25
  322.             FontStrikethru  =   0   'False
  323.             FontUnderline   =   0   'False
  324.             Height          =   280
  325.             Index           =   9
  326.             Left            =   660
  327.             TabIndex        =   10
  328.             Tag             =   "Tue"
  329.             Top             =   750
  330.             Width           =   280
  331.          End
  332.          Begin Label caldate 
  333.             Alignment       =   2  'Center
  334.             BackColor       =   &H00C0C0C0&
  335.             BorderStyle     =   1  'Fixed Single
  336.             FontBold        =   0   'False
  337.             FontItalic      =   0   'False
  338.             FontName        =   "MS Sans Serif"
  339.             FontSize        =   8.25
  340.             FontStrikethru  =   0   'False
  341.             FontUnderline   =   0   'False
  342.             Height          =   280
  343.             Index           =   10
  344.             Left            =   930
  345.             TabIndex        =   11
  346.             Tag             =   "Wed"
  347.             Top             =   750
  348.             Width           =   280
  349.          End
  350.          Begin Label caldate 
  351.             Alignment       =   2  'Center
  352.             BackColor       =   &H00C0C0C0&
  353.             BorderStyle     =   1  'Fixed Single
  354.             FontBold        =   0   'False
  355.             FontItalic      =   0   'False
  356.             FontName        =   "MS Sans Serif"
  357.             FontSize        =   8.25
  358.             FontStrikethru  =   0   'False
  359.             FontUnderline   =   0   'False
  360.             Height          =   280
  361.             Index           =   11
  362.             Left            =   1200
  363.             TabIndex        =   12
  364.             Tag             =   "Thu"
  365.             Top             =   750
  366.             Width           =   280
  367.          End
  368.          Begin Label caldate 
  369.             Alignment       =   2  'Center
  370.             BackColor       =   &H00C0C0C0&
  371.             BorderStyle     =   1  'Fixed Single
  372.             FontBold        =   0   'False
  373.             FontItalic      =   0   'False
  374.             FontName        =   "MS Sans Serif"
  375.             FontSize        =   8.25
  376.             FontStrikethru  =   0   'False
  377.             FontUnderline   =   0   'False
  378.             Height          =   280
  379.             Index           =   12
  380.             Left            =   1470
  381.             TabIndex        =   13
  382.             Tag             =   "Fri"
  383.             Top             =   750
  384.             Width           =   280
  385.          End
  386.          Begin Label caldate 
  387.             Alignment       =   2  'Center
  388.             BackColor       =   &H00C0C0C0&
  389.             BorderStyle     =   1  'Fixed Single
  390.             FontBold        =   0   'False
  391.             FontItalic      =   0   'False
  392.             FontName        =   "MS Sans Serif"
  393.             FontSize        =   8.25
  394.             FontStrikethru  =   0   'False
  395.             FontUnderline   =   0   'False
  396.             Height          =   280
  397.             Index           =   13
  398.             Left            =   1740
  399.             TabIndex        =   14
  400.             Tag             =   "Sat"
  401.             Top             =   750
  402.             Width           =   280
  403.          End
  404.          Begin Label caldate 
  405.             Alignment       =   2  'Center
  406.             BackColor       =   &H00C0C0C0&
  407.             BorderStyle     =   1  'Fixed Single
  408.             FontBold        =   0   'False
  409.             FontItalic      =   0   'False
  410.             FontName        =   "MS Sans Serif"
  411.             FontSize        =   8.25
  412.             FontStrikethru  =   0   'False
  413.             FontUnderline   =   0   'False
  414.             Height          =   280
  415.             Index           =   14
  416.             Left            =   120
  417.             TabIndex        =   15
  418.             Top             =   1020
  419.             Width           =   280
  420.          End
  421.          Begin Label caldate 
  422.             Alignment       =   2  'Center
  423.             BackColor       =   &H00C0C0C0&
  424.             BorderStyle     =   1  'Fixed Single
  425.             FontBold        =   0   'False
  426.             FontItalic      =   0   'False
  427.             FontName        =   "MS Sans Serif"
  428.             FontSize        =   8.25
  429.             FontStrikethru  =   0   'False
  430.             FontUnderline   =   0   'False
  431.             Height          =   285
  432.             Index           =   15
  433.             Left            =   390
  434.             TabIndex        =   16
  435.             Top             =   1020
  436.             Width           =   285
  437.          End
  438.          Begin Label caldate 
  439.             Alignment       =   2  'Center
  440.             BackColor       =   &H00C0C0C0&
  441.             BorderStyle     =   1  'Fixed Single
  442.             FontBold        =   0   'False
  443.             FontItalic      =   0   'False
  444.             FontName        =   "MS Sans Serif"
  445.             FontSize        =   8.25
  446.             FontStrikethru  =   0   'False
  447.             FontUnderline   =   0   'False
  448.             Height          =   280
  449.             Index           =   16
  450.             Left            =   660
  451.             TabIndex        =   17
  452.             Top             =   1020
  453.             Width           =   280
  454.          End
  455.          Begin Label caldate 
  456.             Alignment       =   2  'Center
  457.             BackColor       =   &H00C0C0C0&
  458.             BorderStyle     =   1  'Fixed Single
  459.             FontBold        =   0   'False
  460.             FontItalic      =   0   'False
  461.             FontName        =   "MS Sans Serif"
  462.             FontSize        =   8.25
  463.             FontStrikethru  =   0   'False
  464.             FontUnderline   =   0   'False
  465.             Height          =   280
  466.             Index           =   17
  467.             Left            =   930
  468.             TabIndex        =   18
  469.             Top             =   1020
  470.             Width           =   280
  471.          End
  472.          Begin Label caldate 
  473.             Alignment       =   2  'Center
  474.             BackColor       =   &H00C0C0C0&
  475.             BorderStyle     =   1  'Fixed Single
  476.             FontBold        =   0   'False
  477.             FontItalic      =   0   'False
  478.             FontName        =   "MS Sans Serif"
  479.             FontSize        =   8.25
  480.             FontStrikethru  =   0   'False
  481.             FontUnderline   =   0   'False
  482.             Height          =   280
  483.             Index           =   18
  484.             Left            =   1200
  485.             TabIndex        =   19
  486.             Top             =   1020
  487.             Width           =   280
  488.          End
  489.          Begin Label caldate 
  490.             Alignment       =   2  'Center
  491.             BackColor       =   &H00C0C0C0&
  492.             BorderStyle     =   1  'Fixed Single
  493.             FontBold        =   0   'False
  494.             FontItalic      =   0   'False
  495.             FontName        =   "MS Sans Serif"
  496.             FontSize        =   8.25
  497.             FontStrikethru  =   0   'False
  498.             FontUnderline   =   0   'False
  499.             Height          =   280
  500.             Index           =   19
  501.             Left            =   1470
  502.             TabIndex        =   20
  503.             Top             =   1020
  504.             Width           =   280
  505.          End
  506.          Begin Label caldate 
  507.             Alignment       =   2  'Center
  508.             BackColor       =   &H00C0C0C0&
  509.             BorderStyle     =   1  'Fixed Single
  510.             FontBold        =   0   'False
  511.             FontItalic      =   0   'False
  512.             FontName        =   "MS Sans Serif"
  513.             FontSize        =   8.25
  514.             FontStrikethru  =   0   'False
  515.             FontUnderline   =   0   'False
  516.             Height          =   280
  517.             Index           =   20
  518.             Left            =   1740
  519.             TabIndex        =   21
  520.             Top             =   1020
  521.             Width           =   280
  522.          End
  523.          Begin Label caldate 
  524.             Alignment       =   2  'Center
  525.             BackColor       =   &H00C0C0C0&
  526.             BorderStyle     =   1  'Fixed Single
  527.             FontBold        =   0   'False
  528.             FontItalic      =   0   'False
  529.             FontName        =   "MS Sans Serif"
  530.             FontSize        =   8.25
  531.             FontStrikethru  =   0   'False
  532.             FontUnderline   =   0   'False
  533.             Height          =   280
  534.             Index           =   21
  535.             Left            =   120
  536.             TabIndex        =   22
  537.             Top             =   1290
  538.             Width           =   280
  539.          End
  540.          Begin Label caldate 
  541.             Alignment       =   2  'Center
  542.             BackColor       =   &H00C0C0C0&
  543.             BorderStyle     =   1  'Fixed Single
  544.             FontBold        =   0   'False
  545.             FontItalic      =   0   'False
  546.             FontName        =   "MS Sans Serif"
  547.             FontSize        =   8.25
  548.             FontStrikethru  =   0   'False
  549.             FontUnderline   =   0   'False
  550.             Height          =   285
  551.             Index           =   22
  552.             Left            =   390
  553.             TabIndex        =   23
  554.             Top             =   1290
  555.             Width           =   285
  556.          End
  557.          Begin Label caldate 
  558.             Alignment       =   2  'Center
  559.             BackColor       =   &H00C0C0C0&
  560.             BorderStyle     =   1  'Fixed Single
  561.             FontBold        =   0   'False
  562.             FontItalic      =   0   'False
  563.             FontName        =   "MS Sans Serif"
  564.             FontSize        =   8.25
  565.             FontStrikethru  =   0   'False
  566.             FontUnderline   =   0   'False
  567.             Height          =   280
  568.             Index           =   23
  569.             Left            =   660
  570.             TabIndex        =   24
  571.             Top             =   1290
  572.             Width           =   280
  573.          End
  574.          Begin Label caldate 
  575.             Alignment       =   2  'Center
  576.             BackColor       =   &H00C0C0C0&
  577.             BorderStyle     =   1  'Fixed Single
  578.             FontBold        =   0   'False
  579.             FontItalic      =   0   'False
  580.             FontName        =   "MS Sans Serif"
  581.             FontSize        =   8.25
  582.             FontStrikethru  =   0   'False
  583.             FontUnderline   =   0   'False
  584.             Height          =   280
  585.             Index           =   24
  586.             Left            =   930
  587.             TabIndex        =   25
  588.             Top             =   1290
  589.             Width           =   280
  590.          End
  591.          Begin Label caldate 
  592.             Alignment       =   2  'Center
  593.             BackColor       =   &H00C0C0C0&
  594.             BorderStyle     =   1  'Fixed Single
  595.             FontBold        =   0   'False
  596.             FontItalic      =   0   'False
  597.             FontName        =   "MS Sans Serif"
  598.             FontSize        =   8.25
  599.             FontStrikethru  =   0   'False
  600.             FontUnderline   =   0   'False
  601.             Height          =   280
  602.             Index           =   25
  603.             Left            =   1200
  604.             TabIndex        =   26
  605.             Top             =   1290
  606.             Width           =   280
  607.          End
  608.          Begin Label caldate 
  609.             Alignment       =   2  'Center
  610.             BackColor       =   &H00C0C0C0&
  611.             BorderStyle     =   1  'Fixed Single
  612.             FontBold        =   0   'False
  613.             FontItalic      =   0   'False
  614.             FontName        =   "MS Sans Serif"
  615.             FontSize        =   8.25
  616.             FontStrikethru  =   0   'False
  617.             FontUnderline   =   0   'False
  618.             Height          =   280
  619.             Index           =   26
  620.             Left            =   1470
  621.             TabIndex        =   27
  622.             Top             =   1290
  623.             Width           =   280
  624.          End
  625.          Begin Label caldate 
  626.             Alignment       =   2  'Center
  627.             BackColor       =   &H00C0C0C0&
  628.             BorderStyle     =   1  'Fixed Single
  629.             FontBold        =   0   'False
  630.             FontItalic      =   0   'False
  631.             FontName        =   "MS Sans Serif"
  632.             FontSize        =   8.25
  633.             FontStrikethru  =   0   'False
  634.             FontUnderline   =   0   'False
  635.             Height          =   280
  636.             Index           =   27
  637.             Left            =   1740
  638.             TabIndex        =   28
  639.             Top             =   1290
  640.             Width           =   280
  641.          End
  642.          Begin Label caldate 
  643.             Alignment       =   2  'Center
  644.             BackColor       =   &H00C0C0C0&
  645.             BorderStyle     =   1  'Fixed Single
  646.             FontBold        =   0   'False
  647.             FontItalic      =   0   'False
  648.             FontName        =   "MS Sans Serif"
  649.             FontSize        =   8.25
  650.             FontStrikethru  =   0   'False
  651.             FontUnderline   =   0   'False
  652.             Height          =   280
  653.             Index           =   28
  654.             Left            =   120
  655.             TabIndex        =   29
  656.             Top             =   1560
  657.             Width           =   280
  658.          End
  659.          Begin Label caldate 
  660.             Alignment       =   2  'Center
  661.             BackColor       =   &H00C0C0C0&
  662.             BorderStyle     =   1  'Fixed Single
  663.             FontBold        =   0   'False
  664.             FontItalic      =   0   'False
  665.             FontName        =   "MS Sans Serif"
  666.             FontSize        =   8.25
  667.             FontStrikethru  =   0   'False
  668.             FontUnderline   =   0   'False
  669.             Height          =   285
  670.             Index           =   29
  671.             Left            =   390
  672.             TabIndex        =   30
  673.             Top             =   1560
  674.             Width           =   285
  675.          End
  676.          Begin Label caldate 
  677.             Alignment       =   2  'Center
  678.             BackColor       =   &H00C0C0C0&
  679.             BorderStyle     =   1  'Fixed Single
  680.             FontBold        =   0   'False
  681.             FontItalic      =   0   'False
  682.             FontName        =   "MS Sans Serif"
  683.             FontSize        =   8.25
  684.             FontStrikethru  =   0   'False
  685.             FontUnderline   =   0   'False
  686.             Height          =   280
  687.             Index           =   30
  688.             Left            =   660
  689.             TabIndex        =   31
  690.             Top             =   1560
  691.             Width           =   280
  692.          End
  693.          Begin Label caldate 
  694.             Alignment       =   2  'Center
  695.             BackColor       =   &H00C0C0C0&
  696.             BorderStyle     =   1  'Fixed Single
  697.             FontBold        =   0   'False
  698.             FontItalic      =   0   'False
  699.             FontName        =   "MS Sans Serif"
  700.             FontSize        =   8.25
  701.             FontStrikethru  =   0   'False
  702.             FontUnderline   =   0   'False
  703.             Height          =   280
  704.             Index           =   31
  705.             Left            =   930
  706.             TabIndex        =   32
  707.             Top             =   1560
  708.             Width           =   280
  709.          End
  710.          Begin Label caldate 
  711.             Alignment       =   2  'Center
  712.             BackColor       =   &H00C0C0C0&
  713.             BorderStyle     =   1  'Fixed Single
  714.             FontBold        =   0   'False
  715.             FontItalic      =   0   'False
  716.             FontName        =   "MS Sans Serif"
  717.             FontSize        =   8.25
  718.             FontStrikethru  =   0   'False
  719.             FontUnderline   =   0   'False
  720.             Height          =   280
  721.             Index           =   32
  722.             Left            =   1200
  723.             TabIndex        =   33
  724.             Top             =   1560
  725.             Width           =   280
  726.          End
  727.          Begin Label caldate 
  728.             Alignment       =   2  'Center
  729.             BackColor       =   &H00C0C0C0&
  730.             BorderStyle     =   1  'Fixed Single
  731.             FontBold        =   0   'False
  732.             FontItalic      =   0   'False
  733.             FontName        =   "MS Sans Serif"
  734.             FontSize        =   8.25
  735.             FontStrikethru  =   0   'False
  736.             FontUnderline   =   0   'False
  737.             Height          =   280
  738.             Index           =   33
  739.             Left            =   1470
  740.             TabIndex        =   34
  741.             Top             =   1560
  742.             Width           =   280
  743.          End
  744.          Begin Label caldate 
  745.             Alignment       =   2  'Center
  746.             BackColor       =   &H00C0C0C0&
  747.             BorderStyle     =   1  'Fixed Single
  748.             FontBold        =   0   'False
  749.             FontItalic      =   0   'False
  750.             FontName        =   "MS Sans Serif"
  751.             FontSize        =   8.25
  752.             FontStrikethru  =   0   'False
  753.             FontUnderline   =   0   'False
  754.             Height          =   280
  755.             Index           =   34
  756.             Left            =   1740
  757.             TabIndex        =   35
  758.             Top             =   1560
  759.             Width           =   280
  760.          End
  761.          Begin Label caldate 
  762.             Alignment       =   2  'Center
  763.             BackColor       =   &H00C0C0C0&
  764.             BorderStyle     =   1  'Fixed Single
  765.             FontBold        =   0   'False
  766.             FontItalic      =   0   'False
  767.             FontName        =   "MS Sans Serif"
  768.             FontSize        =   8.25
  769.             FontStrikethru  =   0   'False
  770.             FontUnderline   =   0   'False
  771.             Height          =   280
  772.             Index           =   35
  773.             Left            =   120
  774.             TabIndex        =   36
  775.             Top             =   1830
  776.             Width           =   280
  777.          End
  778.          Begin Label caldate 
  779.             Alignment       =   2  'Center
  780.             BackColor       =   &H00C0C0C0&
  781.             BorderStyle     =   1  'Fixed Single
  782.             FontBold        =   0   'False
  783.             FontItalic      =   0   'False
  784.             FontName        =   "MS Sans Serif"
  785.             FontSize        =   8.25
  786.             FontStrikethru  =   0   'False
  787.             FontUnderline   =   0   'False
  788.             Height          =   285
  789.             Index           =   36
  790.             Left            =   390
  791.             TabIndex        =   37
  792.             Top             =   1830
  793.             Width           =   285
  794.          End
  795.          Begin Label caldate 
  796.             Alignment       =   2  'Center
  797.             BackColor       =   &H00C0C0C0&
  798.             BorderStyle     =   1  'Fixed Single
  799.             FontBold        =   0   'False
  800.             FontItalic      =   0   'False
  801.             FontName        =   "MS Sans Serif"
  802.             FontSize        =   8.25
  803.             FontStrikethru  =   0   'False
  804.             FontUnderline   =   0   'False
  805.             Height          =   280
  806.             Index           =   37
  807.             Left            =   660
  808.             TabIndex        =   38
  809.             Top             =   1830
  810.             Width           =   280
  811.          End
  812.          Begin Label caldate 
  813.             Alignment       =   2  'Center
  814.             BackColor       =   &H00C0C0C0&
  815.             BorderStyle     =   1  'Fixed Single
  816.             FontBold        =   0   'False
  817.             FontItalic      =   0   'False
  818.             FontName        =   "MS Sans Serif"
  819.             FontSize        =   8.25
  820.             FontStrikethru  =   0   'False
  821.             FontUnderline   =   0   'False
  822.             Height          =   280
  823.             Index           =   38
  824.             Left            =   930
  825.             TabIndex        =   39
  826.             Top             =   1830
  827.             Width           =   280
  828.          End
  829.          Begin Label caldate 
  830.             Alignment       =   2  'Center
  831.             BackColor       =   &H00C0C0C0&
  832.             BorderStyle     =   1  'Fixed Single
  833.             FontBold        =   0   'False
  834.             FontItalic      =   0   'False
  835.             FontName        =   "MS Sans Serif"
  836.             FontSize        =   8.25
  837.             FontStrikethru  =   0   'False
  838.             FontUnderline   =   0   'False
  839.             Height          =   280
  840.             Index           =   39
  841.             Left            =   1200
  842.             TabIndex        =   40
  843.             Top             =   1830
  844.             Width           =   280
  845.          End
  846.          Begin Label caldate 
  847.             Alignment       =   2  'Center
  848.             BackColor       =   &H00C0C0C0&
  849.             BorderStyle     =   1  'Fixed Single
  850.             FontBold        =   0   'False
  851.             FontItalic      =   0   'False
  852.             FontName        =   "MS Sans Serif"
  853.             FontSize        =   8.25
  854.             FontStrikethru  =   0   'False
  855.             FontUnderline   =   0   'False
  856.             Height          =   280
  857.             Index           =   40
  858.             Left            =   1470
  859.             TabIndex        =   41
  860.             Top             =   1830
  861.             Width           =   280
  862.          End
  863.          Begin Label caldate 
  864.             Alignment       =   2  'Center
  865.             BackColor       =   &H00C0C0C0&
  866.             BorderStyle     =   1  'Fixed Single
  867.             FontBold        =   0   'False
  868.             FontItalic      =   0   'False
  869.             FontName        =   "MS Sans Serif"
  870.             FontSize        =   8.25
  871.             FontStrikethru  =   0   'False
  872.             FontUnderline   =   0   'False
  873.             Height          =   280
  874.             Index           =   41
  875.             Left            =   1740
  876.             TabIndex        =   42
  877.             Top             =   1830
  878.             Width           =   280
  879.          End
  880.       End
  881.       Begin TextBox txtYear 
  882.          FontBold        =   0   'False
  883.          FontItalic      =   0   'False
  884.          FontName        =   "MS Sans Serif"
  885.          FontSize        =   8.25
  886.          FontStrikethru  =   0   'False
  887.          FontUnderline   =   0   'False
  888.          Height          =   285
  889.          Left            =   600
  890.          TabIndex        =   43
  891.          Text            =   "Text1"
  892.          Top             =   1200
  893.          Width           =   735
  894.       End
  895.       Begin SpinButton spnYear 
  896.          Height          =   300
  897.          Left            =   1440
  898.          SpinOrientation =   1  'Horizontal
  899.          Top             =   1200
  900.          Width           =   375
  901.       End
  902.       Begin ComboBox comMonths 
  903.          FontBold        =   0   'False
  904.          FontItalic      =   0   'False
  905.          FontName        =   "MS Sans Serif"
  906.          FontSize        =   8.25
  907.          FontStrikethru  =   0   'False
  908.          FontUnderline   =   0   'False
  909.          Height          =   315
  910.          Left            =   240
  911.          TabIndex        =   47
  912.          Text            =   "Combo1"
  913.          Top             =   840
  914.          Width           =   1575
  915.       End
  916.       Begin SpinButton spnMonths 
  917.          Height          =   300
  918.          Left            =   1800
  919.          SpinOrientation =   1  'Horizontal
  920.          Top             =   840
  921.          Width           =   375
  922.       End
  923.       Begin Label lblDate 
  924.          Alignment       =   2  'Center
  925.          AutoSize        =   -1  'True
  926.          BackColor       =   &H00FFFFFF&
  927.          BorderStyle     =   1  'Fixed Single
  928.          FontBold        =   0   'False
  929.          FontItalic      =   0   'False
  930.          FontName        =   "MS Sans Serif"
  931.          FontSize        =   8.25
  932.          FontStrikethru  =   0   'False
  933.          FontUnderline   =   0   'False
  934.          Height          =   225
  935.          Left            =   1080
  936.          TabIndex        =   45
  937.          Top             =   480
  938.          Width           =   105
  939.       End
  940.       Begin Label lblDateIndicator 
  941.          BackStyle       =   0  'Transparent
  942.          Height          =   375
  943.          Left            =   120
  944.          TabIndex        =   44
  945.          Top             =   1080
  946.          Visible         =   0   'False
  947.          Width           =   375
  948.       End
  949.    End
  950. Dim varPreviousDate%
  951. Sub caldate_Click (Index As Integer)
  952.     lblDateIndicator.Caption = caldate(Index).Caption
  953.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  954.     lblDateIndicator.Caption = caldate(Index).Caption
  955.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  956.     Dim fChange%
  957.     caldate(varPreviousDate%).BackColor = &HC0C0C0
  958.     caldate(varPreviousDate%).ForeColor = BLACK
  959.     caldate(Index).BackColor = WHITE
  960.     caldate(Index).ForeColor = RED
  961.     varPreviousDate% = Index
  962. End Sub
  963. Sub comMonths_Change ()
  964.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  965.     GetCal
  966. End Sub
  967. Sub comMonths_Click ()
  968.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  969.     GetCal
  970. End Sub
  971. Sub Form_Load ()
  972.     'pnlCal.Height = frmCalendar.Height
  973.     'pnlCal.Width = frmCalendar.Width
  974.     'Add Months to comMonths
  975.      For I = 1 To 12
  976.         itest = Str(I) & "/1/1"
  977.         comMonths.AddItem Format$(itest, "mmmm")
  978.      Next I
  979.      
  980.      txtYear.Text = Format(Now, "yyyy")
  981.      lblDate = Format$(Now, "dddd, MMMM d, YYYY")
  982.      lblDateIndicator.Caption = Format(Now, "d")
  983.      comMonths.ListIndex = Format(Now, "m") - 1
  984.      GetCal
  985. End Sub
  986. Sub GetCal ()
  987.     'This routine is the calendar routine.  It is activated from the
  988.     'Calendar, Vacation and Attendance forms.  Each of those forms have
  989.     'calendars.
  990.     'For flow, make the calendar section invisible for the duraton of the routine
  991.     pnlDates.Visible = False
  992.     Dim calday
  993.     'Caldat is the begining of the selected month
  994.     calday = CVDate(comMonths.Text & " 1, " & txtYear.Text)
  995.     Dim calday2
  996.     calday2 = calday
  997.     For X = 0 To 41
  998.         'If the month changes, make the dat label invisible
  999.         If Month(calday) <> Month(calday2) Then
  1000.             caldate(X).Visible = False
  1001.             caldate(X).Caption = ""
  1002.             
  1003.         Else
  1004.             'Locating which day of the week the first day of the month is
  1005.             'This is done by checking the Tag of the Second row of date labels
  1006.             'don't increment the day until the day of the week is identified
  1007.             If Format(calday, "d") = 1 Then
  1008.                 If Format$(calday, "ddd") = caldate(X + 7).Tag Then
  1009.                     caldate(X).Caption = Format$(calday, "d")
  1010.                     caldate(X).Visible = True
  1011.                     calday = calday + 1
  1012.                 Else
  1013.                     caldate(X).Visible = False
  1014.                     caldate(X).Caption = ""
  1015.                 End If
  1016.              Else
  1017.                 caldate(X).Caption = Format$(calday, "d")
  1018.                 caldate(X).Visible = True
  1019.                 calday = calday + 1
  1020.                 
  1021.             End If
  1022.         End If
  1023.         'Check for the current day and make the current day red forecolor, white back color
  1024.         If caldate(X).Caption = lblDateIndicator.Caption Then
  1025.             caldate(X).BackColor = WHITE
  1026.             caldate(X).ForeColor = RED
  1027.             varPreviousDate% = X
  1028.         Else
  1029.             caldate(X).BackColor = &HC0C0C0
  1030.             caldate(X).ForeColor = BLACK
  1031.         End If
  1032.     Next X
  1033.     pnlDates.Visible = True
  1034. End Sub
  1035. Sub spnMonths_SpinDown ()
  1036.     'Check to see if this is the last day of the month
  1037.     If lblDateIndicator.Caption = "31" Then
  1038.         Select Case comMonths.ListIndex
  1039.             Case 1
  1040.                 lblDateIndicator.Caption = "30"
  1041.             Case 6
  1042.                 lblDateIndicator.Caption = "30"
  1043.             Case 9
  1044.                 lblDateIndicator.Caption = "30"
  1045.             Case 11
  1046.                 lblDateIndicator.Caption = "30"
  1047.             Case Is = 2
  1048.                 If Format$(txtYear.Text, "yy") <> "00" Then
  1049.                     If txtYear.Text Mod 4 = 0 Then
  1050.                         lblDateIndicator = "29"
  1051.                     Else
  1052.                         lblDateIndicator = "28"
  1053.                     End If
  1054.                 End If
  1055.         End Select
  1056.     End If
  1057.     Select Case comMonths.ListIndex
  1058.         Case 0
  1059.             comMonths.ListIndex = 11
  1060.             txtYear = txtYear - 1
  1061.         Case Else
  1062.             comMonths.ListIndex = comMonths.ListIndex - 1
  1063.     End Select
  1064.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  1065.     GetCal
  1066. End Sub
  1067. Sub spnMonths_SpinUp ()
  1068.     If lblDateIndicator.Caption = "31" Then
  1069.         Select Case comMonths.ListIndex
  1070.             Case 2
  1071.                 lblDateIndicator.Caption = "30"
  1072.             Case 4
  1073.                 lblDateIndicator.Caption = "30"
  1074.             Case 7
  1075.                 lblDateIndicator.Caption = "30"
  1076.             Case 9
  1077.                 lblDateIndicator.Caption = "30"
  1078.             Case Is = 0
  1079.                 If Format$(txtYear.Text, "yy") <> "00" Then
  1080.                     If txtYear.Text Mod 4 = 0 Then
  1081.                         lblDateIndicator = "29"
  1082.                     Else
  1083.                         lblDateIndicator = "28"
  1084.                     End If
  1085.                 End If
  1086.         End Select
  1087.     End If
  1088.     Select Case comMonths.ListIndex
  1089.         Case 11
  1090.             comMonths.ListIndex = 0
  1091.             txtYear = txtYear + 1
  1092.         Case Else
  1093.             comMonths.ListIndex = comMonths.ListIndex + 1
  1094.     End Select
  1095.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  1096.     GetCal
  1097. End Sub
  1098. Sub spnYear_SpinDown ()
  1099.     If comMonths.ListIndex = 1 And lblDateIndicator.Caption = "29" Then lblDateIndicator.Caption = "28"
  1100.     txtYear.Text = txtYear - 1
  1101.     lblDate = Format$(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  1102.     GetCal
  1103. End Sub
  1104. Sub spnYear_SpinUp ()
  1105.     If comMonths.ListIndex = 1 And lblDateIndicator.Caption = "29" Then lblDateIndicator.Caption = "28"
  1106.     txtYear.Text = txtYear + 1
  1107.     lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  1108.     GetCal
  1109. End Sub
  1110. Sub txtYear_KeyPress (KeyAscii As Integer)
  1111.     If KeyAscii = 13 Then
  1112.         lblDate = Format(CVDate(comMonths.Text & " " & lblDateIndicator & ", " & txtYear), "dddd mmmm d, yyyy")
  1113.         GetCal
  1114.     End If
  1115. End Sub
  1116.